home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs22.d81 / print user guide (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  67 lines

  1. 2 POKE631,82:POKE632,85:POKE633,78:POKE634,54:POKE635,13:REM" RUN6
  2. 4 [151]198,5:[159]15,9,15,"I0":[128]:" SOME TURBO CART. BREAK WITH _E9"
  3. 6 [160]15:D[178]8:[139](ST [175] 191)[178]0 [167]D[178]9
  4. 8 :
  5. 100 [143]" PRINT USER GUIDE 23-OCT-92
  6. 110 :
  7. 120 _E8:UG$="USER GUIDE":REM" FILE TO PRINT
  8. 130 F$[178]"HINT & TIPS.PIC":HT[178]160[172]256:PL[178]6:[143]" PICTURE OF PL LINES
  9. 140 H1$="   [207][208][197][206] [211][217][211][212][197][205]":H2$="     [203][193]43/61":REM" HEADLINES
  10. 150 :
  11. 160 ADR[178][194](776)[170]256[172][194](777)[171]100:BIT[178][194](ADR[170]1607):MODE[178][194](ADR[170]227)
  12. 170 [139] BIT[179]10 [167] BIT[178]6:LM[178]10:GM[178]30:[137]190:[143]" 90 CHR/LINE
  13. 180 BIT=76-(BIT>128)*128:LM=15:GM=22:REM" 120 CHR/LINE
  14. 190 _G GM,HT[173]256,PL:[143]"SET GRAPHIC.PIC
  15. 200 IF MODE>1 THEN READ A,X:FORX=0 TO A:READ A$:NEXT:GOTO220
  16. 210 GOSUB5000:MODE=2-(NC=2):REM" 2 FOR STD ASCII, 3 FOR PET ASCII
  17. 220 LM$[178][199](LM):L1$[178][199](1):RM$[178][199](136):[159] 4,4,7
  18. 230 [141]5000:[153]" (null)(null)(null)/(null)(null)(null)(null) WAIT IF NO RESPONS FROM PRINTER"
  19. 240 _C3:[152]4,""[170][199](15);:_C MODE:[143] "CHR$(15) MAY NOT BE ACCEPTED IN _C2
  20. 250 ON NC GOTO260,270,280
  21. 260 L$="]"+LM$+RM$:PRINT#4,"]"+L1$+RM$:GOTO280
  22. 270 L$="L"+LM$:PRINT#4,"L"+L1$
  23. 280 CR$=CHR$(13):CH$="EXCLUSIVE.CHR"
  24. 290 PRINT#4,CR$;CR$;CR$;CR$:_B1 H1$
  25. 300 PRINT#4,CR$;CR$;CR$;CR$;CR$:_B1 H2$:PRINT#4,L$+CHR$(12);
  26. 310 PRINT"[147][208][210][197][211][211]  [198]7 [146] TO STOP PRINTING!":PRINT" [210][213][206]/[211][212][207][208] [146] BREAK.
  27. 320 [153]"(null)OADING: (null)ORSK CHR":_X"NORSK CHR",CH$D
  28. 330 [139](ST [175] 191)[179][177]0 [175] D[178]9 [167] [153]"ONON":_E9:[153]"ONONON":_E8:_X,CH$8
  29. 340 [139](ST [175] 191)[179][177]0 [167][153]:_E8:[128]
  30. 350 _X"RELOCATE LOAD",F$,HT,D
  31. 360 [139](ST [175] 191)[179][177]0 [175] D[178]9 [167]:_E9:[153]"ONONON":_E8:_X,F$,HT,8
  32. 370 _C0,BIT:_X"VIEW-FILE"D
  33. 380 [153] [199](14);"   (null)EALIGN TOP OF PAPER TO PRINT-HEAD."
  34. 390 [153] [166]46);"(null)RESS  (null)(null)ATNLENVAL WAIT WHEN READY!CONT":[151] 198,0
  35. 400 [161] A$:[139] A$[178][199](136) [167] [144]
  36. 410 [139] A$[179][177]" " [167]400
  37. 420 [153]"(null)RINTING  ";UG$;" WAIT FROM DEV";D:_X,UG$,4
  38. 430 [128]
  39. 5000 [143] " MENU RETURNS NC
  40. 5010 CL=15:CY=151:BL=144:REM"  COLOURS
  41. 5020 [143]" IF NO>0 GOTO5050
  42. 5030 READ NO,NC:REM" DIM N$(NO),OP$(NO)
  43. 5040 [129] X[178]0 [164] NO:[135] OP$(X):[130]
  44. 5050 [153] [199](147);[199](14);
  45. 5060 [151] 53280,CL:[151] 53281,CL
  46. 5070 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  47. 5080 [153]"FN  (null)(null)VAL(null) CHR$(null)RIGHT$STR$VAL  (null)(null) STR$(null)(null) (null)ATN(null)(null)RIGHT$(null) (null)(null)RIGHT$(null)(null)VAL(null)  THEN
  48. 5090 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  49. 5100 PRINT:PRINT CHR$(BL);" [195]HOOSE WITH  [195][213][210][211][207][210] [146]
  50. 5110 X[178][184](8):[153] "
  51. 5120 FORX=1TONO:N$(X)=CHR$(CY)+CHR$(146+128*(X=NC))+CHR$(-BL*(X=NC)):NEXT
  52. 5130 PRINT TAB(43)CHR$(146+128*(NC>0))"[129] [210][197][212][213][210][206] [146]  TO CONTINUE":PRINT""
  53. 5140 FORX=0TONO:PRINT TAB(19-LEN(OP$(X))/2)N$(X)OP$(X):NEXT
  54. 5150 GETC1$:IFC1$="" THEN NC=ABS(NC):NC=1+NC*SGN(NO-NC):GOTO5110
  55. 5160 IFC1$="[145]" THEN NC=ABS(NC):NC=NC-1-NO*SGN(NC-1)+NO:GOTO5110
  56. 5170 IFC1$<>CHR$(13)THENNC=-NC:GOTO5110
  57. 5180 NC=ABS(NC):RETURN
  58. 5190 DATA 2,1:REM" PRINTER MODE
  59. 5200 [131] "(null)RINTER OR HARD-WARE INTERFACE IS FOR:
  60. 5210 DATA "[211]TANDARD [193][211][195][201][201]
  61. 5220 [131] "LENOMMODORE ((null)VAL(null)-) ATN(null)LENRIGHT$RIGHT$
  62. 5230 DATA 3,3:REM "PRINTER TYPE
  63. 5240 [131] "(null)TATE PRINTER TYPE DUE TO LEFT MARGIN"
  64. 5250 [131] "RIGHT$PEEK(null)-PRINTER (VAL(null)LEN (null))
  65. 5260 DATA "[197]PSON-PRINTER ([197][211][195] L)
  66. 5270 [131] "STR$O'NT CARE!
  67.